function Graph_History_Obs_Shock(DateVec,Obs,Shock,ObsTag,ShockTag,FileName)


%% Preliminary Assignment
LineStyleList       =   {'m--','r-','g:'};
%% 2X1 Plot
Num_V               =   size(Obs,1);
Num_S               =   size(Shock,1);
LineStyle           =   LineStyleList(1:Num_V);
N_col               =   1;
N_row               =   1;
fig_size            =   [N_col*500,N_row*300];
Pos                 =   [50, 50, fig_size];  
subplot_gap         =   [0.1,0.05];
subplot_VMargin     =   [0.1,0.05];
subplot_HMargin     =   [0.05,0.02]; 

TempSubPlotFun      =   @(id)subtightplot(N_row,N_col,id,...
                                          subplot_gap,...
                                          subplot_VMargin,...
                                          subplot_HMargin);

% Observation History
fig         =   figure('Name','History of Observation','Position',Pos);
ax          =   TempSubPlotFun(1);
Title       =   'Observation History';
[PH,ax]     =   MultiSeriesSoloPlot(DateVec,Obs,LineStyleList(1:Num_V),1,'Datetime',ax);
xlabel(ax,'Year','fontsize',14,'interpreter','latex');
% title(ax,Title,'fontsize',14,'interpreter','latex');
recessionplot;
legend(PH,ObsTag,...
       'fontsize',10,'interpreter','latex','Box','off','Color','none',...
       'location','south','orientation','horizontal');
fig.PaperUnits  =   'points';
fig.PaperSize   =   fig_size;
if nargin>5
    print(fig,[FileName,'ObsHistory'],'-dpdf','-bestfit');
end
% Shock History
fig         =   figure('Name','History of Shocks','Position',Pos);
ax          =   TempSubPlotFun(1);
Title       =   'Shock History';
[PH,ax]     =   MultiSeriesSoloPlot(DateVec,Shock,LineStyleList(1:Num_S),1,'Datetime',ax);
% title(ax,Title,'fontsize',14,'interpreter','latex');
xlabel(ax,'Year','fontsize',14,'interpreter','latex');
recessionplot;
legend(PH,ShockTag,...
       'fontsize',10,'interpreter','latex','Box','off','Color','none',...
       'location','northwest','orientation','horizontal');
fig.PaperUnits  =   'points';
fig.PaperSize   =   fig_size;
if nargin>5
    print(fig,[FileName,'ShockHistory'],'-dpdf','-bestfit');
end
